10 A=28672
20 FORI=0TO1*2*(null)STEP0.04
30 X=COS(I)*15+15
40 POKEA,X:A=A+1
50 NEXTI
60 POKEA,255